DIM Series: Yumi Fukawa/DIM Series: Yumi Fukawa.iso/pc/data/photo_l.dxr/00010_movie script.ls

Text File | 1998-06-10 | 3.8 KB | 141 lines

global kmoviesprnum, knummovies, kmoviethumbnailsprnumbgn, kthumbnailmarkersprnum, kphotolinksprnum, kmoviethumbnailstrsprnum, gmoviethumbnailonstage, gcurmovienum, gautomovie

on showhidemoviethumbnail
  busycurs()
  playclicksnd()
  if gmoviethumbnailonstage then
    hidemoviethumbnail()
  else
    showmoviethumbnail()
  end if
  updateStage()
  resetcurs()
end

on showmoviethumbnail
  repeat with amoviecount = 1 to knummovies
    set athumbnailsprnum to kmoviethumbnailsprnumbgn + amoviecount - 1
    sendSprite(athumbnailsprnum, #msetmovienum, amoviecount)
    sendSprite(athumbnailsprnum, #mupdatemoviethumbnailview)
    sendSprite(athumbnailsprnum, #mshowspr)
  end repeat
  set gmoviethumbnailonstage to 1
  updatemoviethumbnailmarker()
  sendSprite(kmoviethumbnailstrsprnum, #mshowspr)
  sendSprite(kmoviethumbnailstrsprnum, #mlockvisiblestate)
end

on hidemoviethumbnail
  sendSprite(kmoviesprnum, #mshowmovie)
  repeat with amoviecount = 1 to knummovies
    set athumbnailsprnum to kmoviethumbnailsprnumbgn + amoviecount - 1
    sendSprite(athumbnailsprnum, #mhidespr)
  end repeat
  sendSprite(kthumbnailmarkersprnum, #mhidemarker)
  set gmoviethumbnailonstage to 0
  sendSprite(kmoviethumbnailstrsprnum, #munlockvisiblestate)
  sendSprite(kmoviethumbnailstrsprnum, #mhidespr)
end

on updatemoviethumbnailmarker
  sendSprite(kthumbnailmarkersprnum, #msettargetsprnum, kmoviethumbnailsprnumbgn + gcurmovienum - 1)
  if gmoviethumbnailonstage then
    sendSprite(kthumbnailmarkersprnum, #mshowmarker)
  end if
end

on nextmovieclickreaction
  playclicksnd()
  set gcurmovienum to cropvaluerotate(gcurmovienum + 1, 1, knummovies)
  updatemovieview()
end

on prevmovieclickreaction
  playclicksnd()
  set gcurmovienum to cropvaluerotate(gcurmovienum - 1, 1, knummovies)
  updatemovieview()
end

on moviethumbnailclickreaction vsprnum
  set aclickedthumbnailnum to vsprnum - kmoviethumbnailsprnumbgn + 1
  set gcurmovienum to aclickedthumbnailnum
  updatemoviethumbnailmarker()
  updatemovieview()
  if the doubleClick then
    if not sendSprite(kmoviesprnum, #misplaying) then
      sendSprite(kmoviesprnum, #mplaymovie)
    else
      sendSprite(kmoviesprnum, #mstopmovie)
    end if
  end if
end

on updatemovieview
  set amovieplaying to sendSprite(kmoviesprnum, #mismovieplaying)
  if amovieplaying then
    sendSprite(kmoviesprnum, #mstopmovie)
  end if
  sendSprite(kmoviesprnum, #msetmovienum, gcurmovienum)
  sendSprite(kmoviesprnum, #mupdatemovieview)
  updateStage()
  if amovieplaying then
    sendSprite(kmoviesprnum, #mplaymovie)
  end if
  updatemoviethumbnailmarker()
  updatephotolinkview()
end

on doautomovie
  if not gautomovie then
    exit
  end if
  set amovieend to sendSprite(kmoviesprnum, #mismovieend)
  if amovieend then
    set gcurmovienum to cropvaluerotate(gcurmovienum + 1, 1, knummovies)
    updatemovieview()
    sendSprite(kmoviesprnum, #mplaymovie)
  end if
end

on automovieclickreaction
  playclicksnd()
  set gautomovie to not gautomovie
  if gautomovie then
    sendSprite(kautomoviestrsprnum, #mshowspr)
    sendSprite(kautomoviestrsprnum, #mlockvisiblestate)
  else
    sendSprite(kautomoviestrsprnum, #mhidespr)
    sendSprite(kautomoviestrsprnum, #munlockvisiblestate)
  end if
end

on updatephotolinkview
  set aphotolinknum to getphotolinknum(gcurmovienum)
  if aphotolinknum > 0 then
    sendSprite(kphotolinksprnum, #mshowspr)
  else
    sendSprite(kphotolinksprnum, #mhidespr)
  end if
end

on photolinkclicked
  playclicksnd()
  set aphotolinknum to getphotolinknum(gcurmovienum)
  if aphotolinknum > 0 then
    sendSprite(kmoviesprnum, #mhidemovie)
    setcurphotonumnoupdate(aphotolinknum)
    set gmoviethumbnailonstage to 0
    go("photo")
    updatephotoview()
    updatethumbnailandmarker()
  end if
end

on gomenufrommovie
  playclicksnd()
  sendSprite(kmoviesprnum, #mhidemovie)
  set gmoviethumbnailonstage to 0
  go("mainmenu")
  unLoad()
end